home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbalyz / mgrid.bas < prev    next >
Encoding:
BASIC Source File  |  1995-01-05  |  599 b   |  33 lines
  1. Option Explicit
  2.  
  3. Sub ClearWholeGrid (grd As Grid)
  4.  
  5. grd.Rows = 1
  6. grd.Cols = 1
  7.  
  8.  
  9.  
  10. End Sub
  11.  
  12. Function GridText (grd As Grid, lngCol As Long, lngRow As Long) As String
  13.  
  14.     grd.Row = lngRow
  15.     grd.Col = lngCol
  16.  
  17.     GridText = grd.Text
  18.  
  19. End Function
  20.  
  21. Sub SetGridClip (grd As Grid, ByVal lngRow As Long, ByVal lngCol As Long, ByVal lngRows As Long, ByVal lngCols As Long, ByVal strClip As String)
  22.  
  23.     grd.SelStartRow = lngRow
  24.     grd.SelStartCol = lngCol
  25.  
  26.     grd.SelEndRow = lngRow + lngRows - 1
  27.     grd.SelEndCol = lngCol + lngCols - 1
  28.  
  29.     grd.Clip = strClip
  30.  
  31. End Sub
  32.  
  33.